64'er 1990 May/64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64/raster-master v1

Commodore BASIC | 2022-10-26 | 1KB | 22 lines

0 data120,169,1,141,26,208,169,127,141,13,220,169,27,141,17,208,169,33,141,20,3
1 data169,192,141,21,3,169,51,141,18,208,88,96,120,169,1,141,25,208,162,0,188,0
2 data193,136,208,253,189,0,194,141,32,208,141,33,208,232,224,199,208,236,169,0
3 fora=49152to49258:readb:data160,10,136,208,253,141,32,208,141,33,208,76,49,234
4 pokea,b:next:z=49408:pokez,6:fora=z+1toz+200:pokea,8:next:fora=z+7toz+207step8
5 pokea,1:next:he=512:me$="1.save  2.load  3.edit  4.clear  5.quit ":goto7
6 fora=z+256toz+he:pokea,.:next:print"press any key ":poke198,.:wait198,1:return
7 print"[147]"tab(10)"***<[210][193][211][212][197][210]-[205][193][211][212][197][210]>***"spc(9)"by [205]artin [211]choenberger [202]an.90"
8 poke53280,.:poke53281,.:printme$:input"";w:onwgosub10,9,13,6,12:goto7
9 input"filename";f$:f$=left$(f$,12)+".ras":loadf$,8,1:return:data120
10 input"filename";f$:f$=left$(f$,11)+".ras":poke174,.:poke175,195
11 poke193,.:poke194,192:f$=f$:sys57812f$,8:sys62954:return:data173,17,208,41
12 f=1:input"programm beenden(j/n)";jn$:ifjn$="j"thenpoke0,0:sys0:data128,201
13 v=53248:pokev+21,1:poke2040,11:pokev,24:poke704,255:y=51:iff=1thenf=0:return
14 sys49152:print" [146]":fora=706to766:pokea,.:next:pokev+39,1:cc=1:poke705,255
15 sc=(sc+1)and255:pokev+39,sc:j=peek(56320):if(jand1)=0andy>51theny=y-1:data128
16 if(jand2)=0andy<250theny=y+1:data240,247,169,49,141,20,3,169,234,141,21,3,162
17 if(jand16)=0thenpokez+256+peek(v+1)-52,cc:iffl=1thenfl=0:pokev+21,.:return
18 if(jand8)=0thencc=(cc+1)and15:poke55296,cc:data255,142,13,220,232,142,26,208
19 pokev+1,y:ifpeek(198)<>0thenfl=1:getg$:ifg$="_"thenpokev+21,.:sys49229:return
20 goto 15:data96:rem"fuer [205]&[212] :        [210]aster-[205]aster [214]1 by [205]artin [211]choenberger